* THIS IS A COPY OF NMSW0 CREATED ON 11/20 AT 14:00. DURING THE NEXT 

* TWO. WEEKS OR SO D. C- 'WILL-BE ADDING COMMENTS TO IT. 

* THE CHANGES OF 11/25* TO INSERT THE BPT2 OPTION 

* AND TO PRINT- H DA AND HDA/2**13 ARE INCORPORATED 

* NOV. IS* 14:00. RADP2 CHANGED TO POINT TO BAND 1 1 D* PAGE 2. 
MSW0 I DENT H18 2/13/68 

*■ monitor module 

ENTRY RCV/RA J~ 

DST 'ZRO < ^^HfrJifTT- / 

BRM DTS . 7 U«» / 

SKN NDCL '"I /^r>Ji*.-_ 

BRU *-l <A #y ^t 

SKN DRMTRY t^S"*** /* 

BRR DST 

MIN DST 

BRR DST 

* THIS ROUTINE INITIALIZES THE DRUM I/O 
DRMSET ZRO .0 

LDA =-1 

ST A NDCL 

STA DTXS1 

STA DSCFLG 

LDA =DRQ 

STA EDCL 

STA IDCL 

CLA .. ■ ' , ' 

STA DSCINT 

BRR DRMSET > 

* 'IOPSET' 9/27/65 

* THIS ROUTINE INITIALIZES THE FILE CONTROL TABLE AND All 

* NON- TELETYPE I/O. iHbLt Ai ^ D ALL 

IO.PSET ZRO 

LDA =400000038 

rcr1 . Lm =-NFILE+3 

I SE 11 ADD ='i 

ST A EFA, 2 

8 ^X I SETl 

LDA =3 

STA FFLST 

LDX =LA0IU -■"'■■■■■ 

LDB =40000000B 

STB efai 

LDB =-i ' 

ISET2 STB EDIU,2 ! 

BRX ISET2 

LDX ( =NNDEV 

ISET3 LDA EBUFS, 2 

SKA = 40000 B 

BRU *+2 

N STB ADIU,2 





BRX 


,- 


I SET 3 




I SETS 


CXA 

SKE 

BRU 

BRU 

STB . 

CLA 

STA 

STB 

STA 

STA 

EAX 

BRU 




=NTAPE 
*+2 
I 5ET4 
UNO, 2 

TSTATE, 2 
TAP R EL, 2 
TDIBA, 2 
TDFNO, 2 
1,2 
I SETS 




ISET4 


CLA 
STA 

BRR 




BLK31 
IOPSET 




* 'TTYSET' 


9/26/65 




-T 5 

* THIS 


ROUTINE 


INITIALIZES 


TH E 


* IT IS CALLED 


WI TH - 1 OR 


DEJ 


* WORDS ARE 

4* 


TO 


BE RESET OR 


NO T 


TTYSET 


ZRO 

STA 





SRFLG 






LDB 


j 


= TTYBUF 






LDA 




sNTTB-1 






STA 




T 






CLX 








TSETl 


STB 
STB 
STB 
STB 
SKN 
BRU 
LDA 
STA 
LDA 
STA 




TI S4, 2 
TI S5, 2 
TO S4, 2 
TO S5, 2 
SRFLG ' 
TSET3 
= ITTBL 
TTYTBL,2 
A OMSK 
TTYASG, 2 


-,.-- v 




LDA 




=NTTB+40000000B 




STA 




LCW, 2 




TSET3 


CLA 










STA 

STA 

LDA 

ADD 

COPY 

LDA 

STA 

STA 

EAX 

SKR 

BRU » 




TI S2, 2 
TTYTIM,2 

TOS5, 2 
=NTTYC 
AB 

TO S2, 2 
TO S3, 2 
1,2 
T 
TSETl 






LDA 




aft TT8+ 40 0800 008 




STA 




LCW, 2 





TELETYPE HARDWARE AND TABLES 
DEPENDING ON WHETHER TTYASG, TTYTBL AND LINK 



LDA =-1 





STA 




ATI S2 




LDA 




=ATT8UF 




STA 




ATIS4 




STA 




ATI S5 




SKN 




SRFLG 




B.RR 




TTYSET 




LDX 




= - N.JO 8+ 2 




STX 




. ETTNO 


TSET2 


CXA 








ADD 




= MJOB 




STA 




ETTiMO^ 2 




BRX 




TSET2 




LDA 




= 1 




STA 




FULST 




BRR 




TTYSET 


SRFLG 


ZRO 







* 

■ir 


SY STEM 


I MI TIALIZE -ROUTINE 


* RESET SYSTEM 


, 


SSET 


ZRO 








BRM 


DRMSET 




LDA 


= WR4; >MUL =35 LSH 23; SUB = 1 




STA 


WR4X3;' SUB = '34000B*3.; STA XWR4X3 




LDX 




=-NPAC*NPPAR 




STX 




CLOCKS 




GLB 






SETl 


LDA 




=700000B 




STA 




P TEST, 2 




CXA 








ADD 




= PPTR 




ADD 




=NPPAR 




STA 




PPTR,2 




EAX 




MPPAR- 1,6 




BRX 




SETl 




LDA 




=PPTR2 




STA 




FPL ST 




STB 


/ 


PPTRU 




STB 




PUCTR 




LDX 




NLQ ■ 


SET6 


LDA 




Q1E, 2 




STA 




. Ql.,2 




SUB 




=PNEXT 




SUB 




= 3 




STA 




Q1N, 2 




EAX 




2, 6 




BRX 




SET6 




SUB 




NLQ 




LDX 




= -3 


■ 


STA 




QINj 2 




LDX 




=-NPUQ*3 


SET 3 


CXA 







ADD =EPUCT3 

STA EPUCT, 2 

EAX 2, 6 

BRX SET3 
CLB 

STB EPUGM3 

LDA = PUCT 

. / STA' FPULST 

LDA =PUBPTR 

STA PUBPTR 

STA PUEPTR 

LDA =25 

LDX s-NSMEM 

STA ESRMC>2 

BRX *- 1 

LDA =-1 
' CLB 

LDX =NSMEM-NMEM 

STA ERMC>2 

STB ERMT#2*STB ERMA, 2 ' ' 

BRX *--3 

LDX =-NDRAT*NSEC? LDA -- 11 STA EDRAT, 2$ BRX *- 1 

LDX =-NJOB 

CLA 

STA ' EPMTP,2 

BRX *-l 

LDA BST 

LDX =- 100B+NPOP ' . , . 

STA 200B-NPOP,2 

BRX *-t . 

STA 17 7B 

BRM 1 OP SET 

LDA = - 1 

BRM TTYSET 

8RR SSET 

WDSU ZRO', LDA =PF; SU8 =300 00 B; CAX* , LDA WDSU1 

STA 30000B, 2* BRX *- 1 

■ LDA =FPJ SUB =4000B; COPY AX, BAl LDA WD3U1; STA 4000 B* 25 BRX *- 1 

.. LDX = -77B* STA 100B, 2.J BRX *- 1 

LDX =WDT8-WDTE 

LDA WDTE*2J BRX *+ls STA* WDTE* 2.J BRX *- 3? BRR WDSU 

WDSU1 B.RM RC\/R ' 



WDTB EQU * 

BRU SETSET5 248 
BRM 03 NT* 27B 
BRU LOAD; 30B 
WDPI T BRM , TRAPI 

40B 



WDIMT . 


BRM 


TRAPM 







41 B 


WDRMT 


BRM 


i TRAP R 







43B 


WDUMT 


BRM 


- TRAP! 







44B 


WD 31 


BRM 


INT31 







31 B 


WD 3 3 


BRM 


INT33 







33B 


WDPWFI 


BRM 


PWFI 







37B 


CLO CK 1 


BRM 


CLINT 







74B 


CLOCK 2 


SKR 


CLO CK 3 







75B 


WDTI 


BRM 


Til 







200B 


WD TO 


BRM . 


TO I 







20 18 


WDTN 


BRM 


TNI 







202B 


WDTF 


BRM 


TFI 







. 20 3B 


WDI RM 


BRM 


IRER 







6 SB 




BRM 


IRM 







64B 




IF 


ARMF 


WDATI 


BRM 


ATI I 







20 A3 




EiNJDF 





WDTE 



EGU 



* SCAM 


TH RO UGH 


USER T. S. BLOCKS 


TSCiM 


ZRO 






LDX 


=-NJOB 


TSCiM 1 


STX 


TSCNS1 




LDA 


EPMTP, 2 




SKG 


5 




BRU 


TSCN2 




CAX 






SKN 


0*2 




BRU 


TSCN5 




LDA 


0, 2 




LSH 


5 




ETR 


=37740006 




STA 


T 


TSCN3 


LDA 


T 




LDB 


=34000B 




BRM 


GDBC 




BRU 


TSCN3 





LDA 


=MBUFX 




STA 


FBWRD 




LDX 


=340008 




LDA 


'=- 1 




STA 


MAGT, 2 




IF - 


1 




STA 


SMIFIL 




STA 


SMOFIL 




E.MDF 




TSCN4 


LDA 


T 




LDS 


=40034000B 




BRM 


GDBC 




BRU 


TSCN4 


TSQM2 


LDX 


TSCNSl 




BRX 


TSCNl 




BRR 


TSCN 


TSCN5 


EQU 


TSCN2 


TSCMS1 


ZRO 




* COPY 


OUT 


TABLE FOR CRASH RECOVERY 


RCT 


ZRO 






STB 


RCT1 




CAB 






SKR 


RCTl 


RCT 2 


XXB 






LDA 


0*2 




EAX 


1*2 




XXB 






STA 


0*2 . 


\ 


EAX 


1*2 




SKR 


RCT1 




BRU 


RCT2 . 




CBA 


"V 




BRR 


. RCT 


RCT1 


ZRO 




* CRASH RECOVERY PROGRAM 
■if 


RCVRA 


LDA 


= RCVT 




LDB 


-NRCVT 




LDX 


=340008 




BRM 


RCT 




LDA 


= TTNO 




LDB 


= NJOB 




BRM 


RCT 




LDA 


= DRAT 




LDB 


•=NDRAT*NSEC 




BRM 


RCT 




LDA 


= TABLE; LDB =L TABLE; BRM RCT 




LDA 


= PMT5 LDB =NUMEM*NJOBj BRM RCT 




LDA 


= FFLST; LDB = 4*NFILE+l; BRM RCT 


* WRITE OUT 


PAGES IN CORE 




LDX 


=NMEM- 1 



RESl 1 STX RCT 

LDA RMT, 2; SK G = 01 BRU RES12 

LDA* RMT, 21, SKA = X4l BRU RES12 

L SH d 

ETR =377 4000 B 

STA RCT1 

RESl 3 LDA RCT 

SK G = 7 

ADD = 108-MSMEM 

CLB 

L SH 11 

MRG DC MBIT 

CAB 

LDA RCT1 

BRM GDBC 

BRU RESl 3 

RESl 2 LDA RCT 

SKE =10B 

BRU RESl 4 

RESl 5 LDA = DMPBND* 20000 B+l^SM EM* 4000 B 

LDB =400008 

LDX =40000B-NSMEM*4000B 

BRM GDAC 

BRU RESl 5 

RESl 4 LDA RCT 

SUB =1 

CAX 

SKE ■ '=NSMEM-1 
, BRU RESl 1 

* READ IN NEW COPY OF SYSTEM" 

8PT4 ' 

BRU *-l 

READ 6*40008,0, 10*200008 

BRM SSET 

* RESTORE CRITICAL TABLES 

LDA =34000 8 

LDB , =NRCVT' , 

LDX =RCVT 

BRM RCT 

LDX =TTtMO 

LDB = MJOB 

BRM RCT 

LDX a DRAT 

LDB = MDRAT*NSEC 

. BRM RCT 

• LDX =TABLE J LDB = LTABLEl Bm RCT 
LDX = PMTi LDB = NUMEM*NJOBl BRM RCT 
LDX = FFLSTj LDB = 4*l\!FI LE+ 1 1 BRM RCT 

* MARK ALL MEMORY 'ON DRUM* 

LDX =PMT 

RES22 LDA 0,2 

ETR =1777408 
SKA =777008 

MRG X4 





STA 


0,2 






EAX 


1*2 






CXA 








SKE 


= EPM T 






BRU 


' RES22 




* SET 


UP ALL 
CLA 


JOBS WITH 


PAC SLOT 




STA 


JOB 




RES20 


LDX 


JOB 






LDA 


PMTP*2 






SKG 


= 






BRU 


RES21 






LDA 


TTN0,2 






STA 


FILE 






BRM 


GFK 






HLT 




N 




STX 


PUP AC 






BRM 


SETPAC 






LDA 


EXECRS 






STA 


PL* 2 




F\H* Ow it 


MIN 


JOB 






LDA 


JOB 






SKE 


= NJOB 






BRU 


RES20 






IF - 1 








BRM 


TSCN 






EN DF 








BRM 


D KM SET 


/ 




ARM I 


AI RWD 






BRU. 


TTY60 




EXECRS 


ZRO 


EXECR, A 




SCONTA 


READ 


6*4000B, 


0* 10-* 20000 




BRU 2AB . 





♦ READ CHARACTER FROM DON SOLE TYPEWRI TER. 

CLEAVES CHARACTER IN SDS CODE* RIGHT JUSTIFIED IN A. 
RDCCT ZRO; DIR; SK S 14000B; BRU *- 1 

EOM 200 IB; WIM RDCCTl; DI SW 

SKS 14000B; BRU *-l/ EIR 

LDA RDCCTl; ETR = 77B; BRR RDCCT 
RDCCTl ZRO 

♦ READ UNSIGNED DECIMAL NUMBER FROM DON SOLE TYPEWRI TER. 
♦TERMINATES ONANY NON-NUMERIC CHARACTER/ WITH TERMINATOR IN B 
RDDCT ZRO; CLA; STA RDDCTl 

RDDCT2 BRM RDCCT; SKG =9; BRU *+4; CAB; LDA RDDCIM; BRR RDDCT 

XMA RDDCTl; MUL =5; CBA; ADM RDDCTl; BRU RDDCT2 
RDDCTl ZRO ■ • ' " 

♦ PRINT CHARACTER ON CONSOLE TYPEWRITER.. 

♦ TAKES CHARACTER RIGHT JUSTIFIED IN A. DESTROYS REGISTERS 
PRCCT. ZRO; BRM CASDS; LCY 18 J STA RDCCTl 

DIR; SKS 14000B; BRU ♦ -! 



